home *** CD-ROM | disk | FTP | other *** search
/ Willard Press Kit / Willard Press Kit.iso / mac / Acrobat Reader 5 PC / AcroRd32.exe / PSPROCSET / 5 < prev    next >
Text File  |  2002-12-14  |  1KB  |  72 lines
  1. %%BeginResource: l2compat
  2. %%Version: 5.0 10
  3. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: Level 1 emulation of level 2 operators
  6. /setcmykcolor isdefined? not
  7. {
  8. /setcmykcolor {
  9. 1 sub 4 1 roll
  10. 3 {
  11. 3 index add neg dup 0 lt { pop 0 } if
  12. 3 1 roll
  13. } repeat
  14. setrgbcolor
  15. pop
  16. } bd
  17. } if
  18. /rectclip isdefined? not
  19. {
  20. /rectclip { newpath re clip newpath } bd
  21. } if
  22. /rectfill isdefined? not
  23. {
  24. /rectfill { gsave newpath re fill grestore } bd
  25. } if
  26. /sethalftone isdefined? not
  27. {
  28. /sethalftone {
  29. begin
  30. HalftoneType 1 eq
  31. { Frequency Angle /SpotFunction load setscreen }
  32. if
  33. end
  34. } bd
  35. } if
  36. Level1?
  37. {
  38. /pdf_show {show} bd
  39. /xshow
  40. {
  41. PDFVars /_pdf_showproc /pdf_show load put
  42. pdf_xshow
  43. } bd
  44. /yshow
  45. {
  46. PDFVars /_pdf_showproc /pdf_show load put
  47. pdf_yshow
  48. } bd
  49. /xyshow
  50. {
  51. PDFVars /_pdf_showproc /pdf_show load put
  52. pdf_xyshow
  53. } bd
  54. } if
  55. /getrampcolor {
  56. /indx exch def
  57. [
  58. 0 1 NumComp 1 sub {
  59. dup
  60. Samples exch get
  61. dup type /stringtype eq { indx get } if
  62. exch
  63. Scaling exch get aload pop
  64. 3 1 roll
  65. mul add
  66. } for
  67. ]
  68. L1setcolor
  69. } bd
  70. /sssetbackground { L1setcolor } bd
  71. %%EndResource
  72.